home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 05 - 1989 / 05.01 Jan 89 / LightTrace / example.p < prev    next >
Encoding:
Text File  |  1988-09-15  |  291 b   |  25 lines  |  [TEXT/PJMM]
  1. PROGRAM test;
  2.     USES
  3.         LightTrace;
  4.  
  5.     PROCEDURE A (i : integer);
  6.     BEGIN
  7.         IF i > 2 THEN
  8.             BEGIN
  9.                 write(intof(i), ' ');
  10.                 A(i DIV 2);
  11.                 A(i - i DIV 2);
  12.             END;
  13.     END;
  14.  
  15.  
  16. BEGIN
  17.     showtext;
  18.     InitTracing;
  19.  
  20.     StartTracing(false, true, true);
  21.     a(7);
  22.     writeln;
  23.     writeln('done');
  24.     endtracing;
  25. END.